home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 April: Mac OS SDK / Dev.CD Apr 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / PInterfaces / Windows.p < prev    next >
Encoding:
Text File  |  1996-05-05  |  15.3 KB  |  549 lines  |  [TEXT/MPS ]
  1. {
  2.      File:        Windows.p
  3.  
  4.      Contains:    Window Manager Interfaces.
  5.  
  6.      Version:    Technology:    System 7.5
  7.                  Package:    Universal Interfaces 2.1.3
  8.  
  9.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  10.                  All rights reserved.
  11.  
  12.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13.                  stack.  Include the file and version information (from above)
  14.                  in the problem description and send to:
  15.                      Internet:    apple.bugs@applelink.apple.com
  16.                      AppleLink:    APPLE.BUGS
  17.  
  18. }
  19.  
  20. {$IFC UNDEFINED UsingIncludes}
  21. {$SETC UsingIncludes := 0}
  22. {$ENDC}
  23.  
  24. {$IFC NOT UsingIncludes}
  25.  UNIT Windows;
  26.  INTERFACE
  27. {$ENDC}
  28.  
  29. {$IFC UNDEFINED __WINDOWS__}
  30. {$SETC __WINDOWS__ := 1}
  31.  
  32. {$I+}
  33. {$SETC WindowsIncludes := UsingIncludes}
  34. {$SETC UsingIncludes := 1}
  35.  
  36.  
  37. {$IFC UNDEFINED __TYPES__}
  38. {$I Types.p}
  39. {$ENDC}
  40. {    ConditionalMacros.p                                            }
  41.  
  42. {$IFC UNDEFINED __MEMORY__}
  43. {$I Memory.p}
  44. {$ENDC}
  45. {    MixedMode.p                                                    }
  46.  
  47. {$IFC UNDEFINED __QUICKDRAW__}
  48. {$I Quickdraw.p}
  49. {$ENDC}
  50. {    QuickdrawText.p                                                }
  51.  
  52. {$IFC UNDEFINED __EVENTS__}
  53. {$I Events.p}
  54. {$ENDC}
  55. {    OSUtils.p                                                    }
  56.  
  57. {$IFC UNDEFINED __CONTROLS__}
  58. {$I Controls.p}
  59. {$ENDC}
  60. {    Menus.p                                                        }
  61.  
  62. {$PUSH}
  63. {$ALIGN MAC68K}
  64. {$LibExport+}
  65.  
  66. {
  67. *****************************************************************************
  68. *                                                                           *
  69. * The conditional STRICT_WINDOWS has been removed from this interface file. *
  70. * The accessor macros to a WindowRecord are no longer necessary.            *
  71. *                                                                           *
  72. *****************************************************************************
  73.  
  74. Details:
  75. The original purpose of the STRICT_ conditionals and accessor macros was to
  76. help ease the transition to Copland.   Shared data structures are difficult
  77. to coordinate in a preemptive multitasking OS.  By hiding the fields in a
  78. WindowRecord and other data structures, we would begin the migration to 
  79. system data structures being completely hidden from applications. 
  80.  
  81. After many design reviews, it was finally concluded that with this sort of
  82. migration, the system could never tell when an application was no longer 
  83. peeking at a WindowRecord, and thus the data structure might never become 
  84. system owned.  Additionally, there were many other limitations in the classic
  85. toolbox that were begging to be addressed.
  86.  
  87. The final decision was to leave the traditional toolbox as a compatibility mode.
  88. The preferred toolbox API for Copland is a new SOM(tm) based architecture 
  89. (e.g. HIWindows.idl).  Windows, menu, controls, etc are each a SOM object 
  90. with methods for drawing, event handling, and customization.
  91. }
  92.  
  93. CONST
  94.     kWindowDefProcType            = 'WDEF';
  95.  
  96. {####################################################################################}
  97. {}
  98. {    Window Definition ID's}
  99. {}
  100. {####################################################################################}
  101.     kStandardWindowDefinition    = 0;                            { for document windows and dialogs}
  102.     kRoundWindowDefinition        = 1;                            { old da-style window}
  103.     kFloatingWindowDefinition    = 124;                            { for floating windows}
  104.  
  105. {####################################################################################}
  106. {}
  107. { Window Variant Codes}
  108. {}
  109. {####################################################################################}
  110. { for use with kStandardWindowDefinition }
  111.     kModalDialogVariantCode        = 1;
  112.     kMovableModalDialogVariantCode = 5;
  113. { for use with kFloatingWindowDefinition }
  114.     kSideFloaterVariantCode        = 8;
  115.  
  116. {####################################################################################}
  117. {}
  118. { Old-style procIDs.  For use only with New(C)Window}
  119. {}
  120. {####################################################################################}
  121.     documentProc                = 0;
  122.     dBoxProc                    = 1;
  123.     plainDBox                    = 2;
  124.     altDBoxProc                    = 3;
  125.     noGrowDocProc                = 4;
  126.     movableDBoxProc                = 5;
  127.     zoomDocProc                    = 8;
  128.     zoomNoGrow                    = 12;
  129.     rDocProc                    = 16;
  130. { floating window defproc ids }
  131.     floatProc                    = 1985;
  132.     floatGrowProc                = 1987;
  133.     floatZoomProc                = 1989;
  134.     floatZoomGrowProc            = 1991;
  135.     floatSideProc                = 1993;
  136.     floatSideGrowProc            = 1995;
  137.     floatSideZoomProc            = 1997;
  138.     floatSideZoomGrowProc        = 1999;
  139.  
  140. {####################################################################################}
  141. {}
  142. { Standard window kinds}
  143. {}
  144. {####################################################################################}
  145.     dialogKind                    = 2;
  146.     userKind                    = 8;
  147.     kDialogWindowKind            = 2;
  148.     kApplicationWindowKind        = 8;
  149.  
  150. {####################################################################################}
  151. {}
  152. { FindWindow result codes}
  153. {}
  154. {####################################################################################}
  155.     inDesk                        = 0;
  156.     inMenuBar                    = 1;
  157.     inSysWindow                    = 2;
  158.     inContent                    = 3;
  159.     inDrag                        = 4;
  160.     inGrow                        = 5;
  161.     inGoAway                    = 6;
  162.     inZoomIn                    = 7;
  163.     inZoomOut                    = 8;
  164.  
  165.     wDraw                        = 0;
  166.     wHit                        = 1;
  167.     wCalcRgns                    = 2;
  168.     wNew                        = 3;
  169.     wDispose                    = 4;
  170.     wGrow                        = 5;
  171.     wDrawGIcon                    = 6;
  172.  
  173.     deskPatID                    = 16;
  174.  
  175. {####################################################################################}
  176. {}
  177. { Window Definition hit test result codes ("WindowPart")}
  178. {}
  179. {####################################################################################}
  180.     wNoHit                        = 0;
  181.     wInContent                    = 1;
  182.     wInDrag                        = 2;
  183.     wInGrow                        = 3;
  184.     wInGoAway                    = 4;
  185.     wInZoomIn                    = 5;
  186.     wInZoomOut                    = 6;
  187.  
  188. TYPE
  189.     WindowDefProcPtr = ProcPtr;  { FUNCTION WindowDef(varCode: INTEGER; theWindow: WindowRef; message: INTEGER; param: LONGINT): LONGINT; }
  190.     {
  191.         DeskHookProcPtr uses register based parameters on the 68k and cannot
  192.         be written in or called from a high-level language without the help of
  193.         mixed mode or assembly glue.
  194.  
  195.         In:
  196.          => mouseClick      D0.B
  197.          => *theEvent       A0.L
  198.     }
  199.     DeskHookProcPtr = Register68kProcPtr;  { register PROCEDURE DeskHook(mouseClick: BOOLEAN; VAR theEvent: EventRecord); }
  200.     WindowDefUPP = UniversalProcPtr;
  201.     DeskHookUPP = UniversalProcPtr;
  202.  
  203. CONST
  204.     uppWindowDefProcInfo = $00003BB0; { FUNCTION (2 byte param, 4 byte param, 2 byte param, 4 byte param): 4 byte result; }
  205.     uppDeskHookProcInfo = $00130802; { Register PROCEDURE (1 byte in D0, 4 bytes in A0); }
  206.  
  207. FUNCTION NewWindowDefProc(userRoutine: WindowDefProcPtr): WindowDefUPP;
  208.     {$IFC NOT GENERATINGCFM }
  209.     INLINE $2E9F;
  210.     {$ENDC}
  211.  
  212. FUNCTION NewDeskHookProc(userRoutine: DeskHookProcPtr): DeskHookUPP;
  213.     {$IFC NOT GENERATINGCFM }
  214.     INLINE $2E9F;
  215.     {$ENDC}
  216.  
  217. FUNCTION CallWindowDefProc(varCode: INTEGER; theWindow: WindowRef; message: INTEGER; param: LONGINT; userRoutine: WindowDefUPP): LONGINT;
  218.     {$IFC NOT GENERATINGCFM}
  219.     INLINE $205F, $4E90;
  220.     {$ENDC}
  221.  
  222. PROCEDURE CallDeskHookProc(mouseClick: BOOLEAN; VAR theEvent: EventRecord; userRoutine: DeskHookUPP);
  223.     {$IFC NOT GENERATINGCFM}
  224.     {To be implemented:  Glue to move parameters into registers.}
  225.     {$ENDC}
  226. FUNCTION GetGrayRgn : RgnHandle;
  227.     {$IFC NOT CFMSYSTEMCALLS}
  228.     INLINE $2EB8, $09EE;            { MOVE.l $09EE,(SP) }
  229.     {$ENDC}
  230.  
  231. {####################################################################################}
  232. {}
  233. {    Color table defined for compatibility only.  Will move to some ifdef'd wasteland.}
  234. {}
  235. {####################################################################################}
  236.  
  237. TYPE
  238.     WinCTab = RECORD
  239.         wCSeed:                    LONGINT;                                { reserved }
  240.         wCReserved:                INTEGER;                                { reserved }
  241.         ctSize:                    INTEGER;                                { usually 4 for windows }
  242.         ctTable:                ARRAY [0..4] OF ColorSpec;
  243.     END;
  244.  
  245.     WCTabPtr = ^WinCTab;
  246.     WCTabHandle = ^WCTabPtr;
  247.  
  248.  
  249. PROCEDURE InitWindows;
  250.     {$IFC NOT GENERATINGCFM}
  251.     INLINE $A912;
  252.     {$ENDC}
  253. PROCEDURE GetWMgrPort(VAR wPort: GrafPtr);
  254.     {$IFC NOT GENERATINGCFM}
  255.     INLINE $A910;
  256.     {$ENDC}
  257. FUNCTION NewWindow(wStorage: UNIV Ptr; {CONST}VAR boundsRect: Rect; title: ConstStr255Param; visible: BOOLEAN; theProc: INTEGER; behind: WindowRef; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowRef;
  258.     {$IFC NOT GENERATINGCFM}
  259.     INLINE $A913;
  260.     {$ENDC}
  261. FUNCTION GetNewWindow(windowID: INTEGER; wStorage: UNIV Ptr; behind: WindowRef): WindowRef;
  262.     {$IFC NOT GENERATINGCFM}
  263.     INLINE $A9BD;
  264.     {$ENDC}
  265. PROCEDURE CloseWindow(theWindow: WindowRef);
  266.     {$IFC NOT GENERATINGCFM}
  267.     INLINE $A92D;
  268.     {$ENDC}
  269. PROCEDURE DisposeWindow(theWindow: WindowRef);
  270.     {$IFC NOT GENERATINGCFM}
  271.     INLINE $A914;
  272.     {$ENDC}
  273. PROCEDURE GetWTitle(theWindow: WindowRef; VAR title: Str255);
  274.     {$IFC NOT GENERATINGCFM}
  275.     INLINE $A919;
  276.     {$ENDC}
  277. PROCEDURE SelectWindow(theWindow: WindowRef);
  278.     {$IFC NOT GENERATINGCFM}
  279.     INLINE $A91F;
  280.     {$ENDC}
  281. PROCEDURE HideWindow(theWindow: WindowRef);
  282.     {$IFC NOT GENERATINGCFM}
  283.     INLINE $A916;
  284.     {$ENDC}
  285. PROCEDURE ShowWindow(theWindow: WindowRef);
  286.     {$IFC NOT GENERATINGCFM}
  287.     INLINE $A915;
  288.     {$ENDC}
  289. PROCEDURE ShowHide(theWindow: WindowRef; showFlag: BOOLEAN);
  290.     {$IFC NOT GENERATINGCFM}
  291.     INLINE $A908;
  292.     {$ENDC}
  293. PROCEDURE HiliteWindow(theWindow: WindowRef; fHilite: BOOLEAN);
  294.     {$IFC NOT GENERATINGCFM}
  295.     INLINE $A91C;
  296.     {$ENDC}
  297. PROCEDURE BringToFront(theWindow: WindowRef);
  298.     {$IFC NOT GENERATINGCFM}
  299.     INLINE $A920;
  300.     {$ENDC}
  301. PROCEDURE SendBehind(theWindow: WindowRef; behindWindow: WindowRef);
  302.     {$IFC NOT GENERATINGCFM}
  303.     INLINE $A921;
  304.     {$ENDC}
  305. FUNCTION FrontWindow: WindowRef;
  306.     {$IFC NOT GENERATINGCFM}
  307.     INLINE $A924;
  308.     {$ENDC}
  309. PROCEDURE DrawGrowIcon(theWindow: WindowRef);
  310.     {$IFC NOT GENERATINGCFM}
  311.     INLINE $A904;
  312.     {$ENDC}
  313. PROCEDURE MoveWindow(theWindow: WindowRef; hGlobal: INTEGER; vGlobal: INTEGER; front: BOOLEAN);
  314.     {$IFC NOT GENERATINGCFM}
  315.     INLINE $A91B;
  316.     {$ENDC}
  317. PROCEDURE SizeWindow(theWindow: WindowRef; w: INTEGER; h: INTEGER; fUpdate: BOOLEAN);
  318.     {$IFC NOT GENERATINGCFM}
  319.     INLINE $A91D;
  320.     {$ENDC}
  321. PROCEDURE ZoomWindow(theWindow: WindowRef; partCode: INTEGER; front: BOOLEAN);
  322.     {$IFC NOT GENERATINGCFM}
  323.     INLINE $A83A;
  324.     {$ENDC}
  325. PROCEDURE InvalRect({CONST}VAR badRect: Rect);
  326.     {$IFC NOT GENERATINGCFM}
  327.     INLINE $A928;
  328.     {$ENDC}
  329. PROCEDURE InvalRgn(badRgn: RgnHandle);
  330.     {$IFC NOT GENERATINGCFM}
  331.     INLINE $A927;
  332.     {$ENDC}
  333. PROCEDURE ValidRect({CONST}VAR goodRect: Rect);
  334.     {$IFC NOT GENERATINGCFM}
  335.     INLINE $A92A;
  336.     {$ENDC}
  337. PROCEDURE ValidRgn(goodRgn: RgnHandle);
  338.     {$IFC NOT GENERATINGCFM}
  339.     INLINE $A929;
  340.     {$ENDC}
  341. PROCEDURE BeginUpdate(theWindow: WindowRef);
  342.     {$IFC NOT GENERATINGCFM}
  343.     INLINE $A922;
  344.     {$ENDC}
  345. PROCEDURE EndUpdate(theWindow: WindowRef);
  346.     {$IFC NOT GENERATINGCFM}
  347.     INLINE $A923;
  348.     {$ENDC}
  349. PROCEDURE SetWRefCon(theWindow: WindowRef; data: LONGINT);
  350.     {$IFC NOT GENERATINGCFM}
  351.     INLINE $A918;
  352.     {$ENDC}
  353. FUNCTION GetWRefCon(theWindow: WindowRef): LONGINT;
  354.     {$IFC NOT GENERATINGCFM}
  355.     INLINE $A917;
  356.     {$ENDC}
  357. PROCEDURE SetWindowPic(theWindow: WindowRef; pic: PicHandle);
  358.     {$IFC NOT GENERATINGCFM}
  359.     INLINE $A92E;
  360.     {$ENDC}
  361. FUNCTION GetWindowPic(theWindow: WindowRef): PicHandle;
  362.     {$IFC NOT GENERATINGCFM}
  363.     INLINE $A92F;
  364.     {$ENDC}
  365. FUNCTION CheckUpdate(VAR theEvent: EventRecord): BOOLEAN;
  366.     {$IFC NOT GENERATINGCFM}
  367.     INLINE $A911;
  368.     {$ENDC}
  369. PROCEDURE ClipAbove(window: WindowRef);
  370.     {$IFC NOT GENERATINGCFM}
  371.     INLINE $A90B;
  372.     {$ENDC}
  373. PROCEDURE SaveOld(window: WindowRef);
  374.     {$IFC NOT GENERATINGCFM}
  375.     INLINE $A90E;
  376.     {$ENDC}
  377. PROCEDURE DrawNew(window: WindowRef; update: BOOLEAN);
  378.     {$IFC NOT GENERATINGCFM}
  379.     INLINE $A90F;
  380.     {$ENDC}
  381. PROCEDURE PaintOne(window: WindowRef; clobberedRgn: RgnHandle);
  382.     {$IFC NOT GENERATINGCFM}
  383.     INLINE $A90C;
  384.     {$ENDC}
  385. PROCEDURE PaintBehind(startWindow: WindowRef; clobberedRgn: RgnHandle);
  386.     {$IFC NOT GENERATINGCFM}
  387.     INLINE $A90D;
  388.     {$ENDC}
  389. PROCEDURE CalcVis(window: WindowRef);
  390.     {$IFC NOT GENERATINGCFM}
  391.     INLINE $A909;
  392.     {$ENDC}
  393. PROCEDURE CalcVisBehind(startWindow: WindowRef; clobberedRgn: RgnHandle);
  394.     {$IFC NOT GENERATINGCFM}
  395.     INLINE $A90A;
  396.     {$ENDC}
  397. FUNCTION GrowWindow(theWindow: WindowRef; startPt: Point; {CONST}VAR bBox: Rect): LONGINT;
  398.     {$IFC NOT GENERATINGCFM}
  399.     INLINE $A92B;
  400.     {$ENDC}
  401. FUNCTION FindWindow(thePoint: Point; VAR theWindow: WindowRef): INTEGER;
  402.     {$IFC NOT GENERATINGCFM}
  403.     INLINE $A92C;
  404.     {$ENDC}
  405. FUNCTION PinRect({CONST}VAR theRect: Rect; thePt: Point): LONGINT;
  406.     {$IFC NOT GENERATINGCFM}
  407.     INLINE $A94E;
  408.     {$ENDC}
  409. FUNCTION DragGrayRgn(theRgn: RgnHandle; startPt: Point; {CONST}VAR limitRect: Rect; {CONST}VAR slopRect: Rect; axis: INTEGER; actionProc: DragGrayRgnUPP): LONGINT;
  410.     {$IFC NOT GENERATINGCFM}
  411.     INLINE $A905;
  412.     {$ENDC}
  413. FUNCTION DragTheRgn(theRgn: RgnHandle; startPt: Point; {CONST}VAR limitRect: Rect; {CONST}VAR slopRect: Rect; axis: INTEGER; actionProc: DragGrayRgnUPP): LONGINT;
  414.     {$IFC NOT GENERATINGCFM}
  415.     INLINE $A926;
  416.     {$ENDC}
  417. FUNCTION TrackBox(theWindow: WindowRef; thePt: Point; partCode: INTEGER): BOOLEAN;
  418.     {$IFC NOT GENERATINGCFM}
  419.     INLINE $A83B;
  420.     {$ENDC}
  421. PROCEDURE GetCWMgrPort(VAR wMgrCPort: CGrafPtr);
  422.     {$IFC NOT GENERATINGCFM}
  423.     INLINE $AA48;
  424.     {$ENDC}
  425. PROCEDURE SetWinColor(theWindow: WindowRef; newColorTable: WCTabHandle);
  426.     {$IFC NOT GENERATINGCFM}
  427.     INLINE $AA41;
  428.     {$ENDC}
  429. PROCEDURE SetDeskCPat(deskPixPat: PixPatHandle);
  430.     {$IFC NOT GENERATINGCFM}
  431.     INLINE $AA47;
  432.     {$ENDC}
  433. FUNCTION NewCWindow(wStorage: UNIV Ptr; {CONST}VAR boundsRect: Rect; title: ConstStr255Param; visible: BOOLEAN; procID: INTEGER; behind: WindowRef; goAwayFlag: BOOLEAN; refCon: LONGINT): WindowRef;
  434.     {$IFC NOT GENERATINGCFM}
  435.     INLINE $AA45;
  436.     {$ENDC}
  437. FUNCTION GetNewCWindow(windowID: INTEGER; wStorage: UNIV Ptr; behind: WindowRef): WindowRef;
  438.     {$IFC NOT GENERATINGCFM}
  439.     INLINE $AA46;
  440.     {$ENDC}
  441. FUNCTION GetWVariant(theWindow: WindowRef): INTEGER;
  442.     {$IFC NOT GENERATINGCFM}
  443.     INLINE $A80A;
  444.     {$ENDC}
  445. PROCEDURE SetWTitle(theWindow: WindowRef; title: ConstStr255Param);
  446.     {$IFC NOT GENERATINGCFM}
  447.     INLINE $A91A;
  448.     {$ENDC}
  449. FUNCTION TrackGoAway(theWindow: WindowRef; thePt: Point): BOOLEAN;
  450.     {$IFC NOT GENERATINGCFM}
  451.     INLINE $A91E;
  452.     {$ENDC}
  453. PROCEDURE DragWindow(theWindow: WindowRef; startPt: Point; {CONST}VAR boundsRect: Rect);
  454.     {$IFC NOT GENERATINGCFM}
  455.     INLINE $A925;
  456.     {$ENDC}
  457.     
  458. TYPE
  459.     WindowPeek = ^WindowRecord;
  460.  
  461.     WindowRecord = RECORD
  462.         port:                    GrafPort;
  463.         windowKind:                INTEGER;
  464.         visible:                BOOLEAN;
  465.         hilited:                BOOLEAN;
  466.         goAwayFlag:                BOOLEAN;
  467.         spareFlag:                BOOLEAN;
  468.         strucRgn:                RgnHandle;
  469.         contRgn:                RgnHandle;
  470.         updateRgn:                RgnHandle;
  471.         windowDefProc:            Handle;
  472.         dataHandle:                Handle;
  473.         titleHandle:            StringHandle;
  474.         titleWidth:                INTEGER;
  475.         controlList:            ControlRef;
  476.         nextWindow:                WindowPeek;
  477.         windowPic:                PicHandle;
  478.         refCon:                    LONGINT;
  479.     END;
  480.  
  481.     CWindowPeek = ^CWindowRecord;
  482.  
  483.     CWindowRecord = RECORD
  484.         port:                    CGrafPort;
  485.         windowKind:                INTEGER;
  486.         visible:                BOOLEAN;
  487.         hilited:                BOOLEAN;
  488.         goAwayFlag:                BOOLEAN;
  489.         spareFlag:                BOOLEAN;
  490.         strucRgn:                RgnHandle;
  491.         contRgn:                RgnHandle;
  492.         updateRgn:                RgnHandle;
  493.         windowDefProc:            Handle;
  494.         dataHandle:                Handle;
  495.         titleHandle:            StringHandle;
  496.         titleWidth:                INTEGER;
  497.         controlList:            ControlRef;
  498.         nextWindow:                CWindowPeek;
  499.         windowPic:                PicHandle;
  500.         refCon:                    LONGINT;
  501.     END;
  502.  
  503.     WStateData = RECORD
  504.         userState:                Rect;                                    {user state}
  505.         stdState:                Rect;                                    {standard state}
  506.     END;
  507.  
  508.     WStateDataPtr = ^WStateData;
  509.     WStateDataHandle = ^WStateDataPtr;
  510.  
  511.     AuxWinPtr = ^AuxWinRec;
  512.     AuxWinHandle = ^AuxWinPtr;
  513.  
  514.     AuxWinRec = RECORD
  515.         awNext:                    AuxWinHandle;                            {handle to next AuxWinRec}
  516.         awOwner:                WindowRef;                                {ptr to window }
  517.         awCTable:                CTabHandle;                                {color table for this window}
  518.         dialogCItem:            Handle;                                    {  }
  519.         awFlags:                LONGINT;                                {reserved for expansion}
  520.         awReserved:                CTabHandle;                                {reserved for expansion}
  521.         awRefCon:                LONGINT;                                {user Constant}
  522.     END;
  523.  
  524.  
  525. FUNCTION GetAuxWin(theWindow: WindowRef; VAR awHndl: AuxWinHandle): BOOLEAN;
  526.     {$IFC NOT GENERATINGCFM}
  527.     INLINE $AA42;
  528.     {$ENDC}
  529.  
  530. CONST
  531.     wContentColor                = 0;
  532.     wFrameColor                    = 1;
  533.     wTextColor                    = 2;
  534.     wHiliteColor                = 3;
  535.     wTitleBarColor                = 4;
  536.  
  537.  
  538.  
  539. {$ALIGN RESET}
  540. {$POP}
  541.  
  542. {$SETC UsingIncludes := WindowsIncludes}
  543.  
  544. {$ENDC} {__WINDOWS__}
  545.  
  546. {$IFC NOT UsingIncludes}
  547.  END.
  548. {$ENDC}
  549.